home *** CD-ROM | disk | FTP | other *** search
/ Developer Helper 1: Phil & Dave's Excellent CD / Excellent CD HFS.raw / HyperCard / HyperCard 1.2.2 International / HyperCard Danish (DK-1.2.2) / Idestakke / Baggrundsideer / background_29658.txt < prev    next >
Text File  |  1988-12-19  |  9KB  |  413 lines
  1. -- background: 29658 from stack: in
  2. -- bmap block id: 58334
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. -- These background scripts handle check-boxes on a background by
  8. -- storing the settings of the check-boxes in a hidden field called
  9. -- "checks" and setting and resetting them on open and close card.
  10. --
  11. on newCard
  12.   repeat with i=1 to the number of background buttons
  13.     put "true" & return after field "checks"
  14.   end repeat
  15. end newCard
  16.  
  17. on openCard
  18.   set cursor to 4 -- wristwatch
  19.   repeat with i=1 to the number of background buttons
  20.     set the hilite of background button i to (line i of field "checks" is true)
  21.   end repeat
  22.   set cursor to 1 -- browse tool
  23. end openCard
  24.  
  25. on closeCard
  26.   set cursor to 4 -- wristwatch
  27.   repeat with i=1 to the number of background buttons
  28.     get hilite of background button i
  29.     put it into line i of field "checks"
  30.   end repeat
  31.   set cursor to 1 -- browse tool
  32. end closeCard
  33.  
  34. on newStack
  35.   newCard
  36. end newStack
  37.  
  38.  
  39. on openBackground
  40.   push recent card
  41. end openBackground
  42.  
  43.  
  44. -- part 1 (button)
  45. -- low flags: 00
  46. -- high flags: 0000
  47. -- rect: left=444 top=187 right=218 bottom=487
  48. -- title width / last selected line: 0
  49. -- icon id / first selected line: 10610 / 10610
  50. -- text alignment: 1
  51. -- font id: 0
  52. -- text size: 12
  53. -- style flags: 0
  54. -- line height: 16
  55. -- part name: dial phone
  56. ----- HyperTalk script -----
  57. on mouseUp
  58.   get the selection
  59.   if it is empty then get the message
  60.   if it is empty then ask "Ring til hvilket nummer?"
  61.   if it is not empty then
  62.     dial it
  63.   end if
  64. end mouseUp
  65.  
  66.  
  67.  
  68. -- part 4 (field)
  69. -- low flags: 01
  70. -- high flags: 4000
  71. -- rect: left=60 top=90 right=110 bottom=324
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 0 / 0
  74. -- text alignment: 0
  75. -- font id: 3
  76. -- text size: 14
  77. -- style flags: 0
  78. -- line height: 18
  79. -- part name: 
  80.  
  81.  
  82. -- part 6 (field)
  83. -- low flags: 01
  84. -- high flags: 4000
  85. -- rect: left=85 top=149 right=169 bottom=320
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 0 / 0
  88. -- text alignment: 0
  89. -- font id: 3
  90. -- text size: 14
  91. -- style flags: 0
  92. -- line height: 18
  93. -- part name: 
  94.  
  95.  
  96. -- part 7 (field)
  97. -- low flags: 01
  98. -- high flags: 4000
  99. -- rect: left=85 top=171 right=191 bottom=317
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 0 / 0
  102. -- text alignment: 0
  103. -- font id: 3
  104. -- text size: 14
  105. -- style flags: 0
  106. -- line height: 18
  107. -- part name: Telefonnummer
  108.  
  109.  
  110. -- part 8 (field)
  111. -- low flags: 01
  112. -- high flags: 4000
  113. -- rect: left=95 top=204 right=296 bottom=318
  114. -- title width / last selected line: 0
  115. -- icon id / first selected line: 0 / 0
  116. -- text alignment: 0
  117. -- font id: 3
  118. -- text size: 14
  119. -- style flags: 0
  120. -- line height: 18
  121. -- part name: 
  122.  
  123.  
  124. -- part 9 (field)
  125. -- low flags: 01
  126. -- high flags: 4000
  127. -- rect: left=117 top=300 right=320 bottom=318
  128. -- title width / last selected line: 0
  129. -- icon id / first selected line: 0 / 0
  130. -- text alignment: 0
  131. -- font id: 3
  132. -- text size: 14
  133. -- style flags: 0
  134. -- line height: 18
  135. -- part name: 
  136.  
  137.  
  138. -- part 10 (field)
  139. -- low flags: 00
  140. -- high flags: 4000
  141. -- rect: left=371 top=60 right=80 bottom=475
  142. -- title width / last selected line: 0
  143. -- icon id / first selected line: 0 / 0
  144. -- text alignment: 0
  145. -- font id: 3
  146. -- text size: 14
  147. -- style flags: 0
  148. -- line height: 18
  149. -- part name: 
  150.  
  151.  
  152. -- part 11 (field)
  153. -- low flags: 00
  154. -- high flags: 4000
  155. -- rect: left=371 top=88 right=108 bottom=476
  156. -- title width / last selected line: 0
  157. -- icon id / first selected line: 0 / 0
  158. -- text alignment: 0
  159. -- font id: 3
  160. -- text size: 14
  161. -- style flags: 0
  162. -- line height: 18
  163. -- part name: 
  164.  
  165.  
  166. -- part 25 (button)
  167. -- low flags: 00
  168. -- high flags: 0000
  169. -- rect: left=428 top=30 right=57 bottom=464
  170. -- title width / last selected line: 0
  171. -- icon id / first selected line: 15972 / 15972
  172. -- text alignment: 1
  173. -- font id: 0
  174. -- text size: 12
  175. -- style flags: 0
  176. -- line height: 16
  177. -- part name: gå til kalender
  178. ----- HyperTalk script -----
  179. on mouseUp
  180.   set lockscreen to true
  181.   go to "Kalender"
  182.   goWeekly the seconds
  183. end mouseUp
  184.  
  185.  
  186.  
  187. -- part 26 (button)
  188. -- low flags: 00
  189. -- high flags: 0000
  190. -- rect: left=372 top=307 right=332 bottom=399
  191. -- title width / last selected line: 0
  192. -- icon id / first selected line: 15420 / 15420
  193. -- text alignment: 1
  194. -- font id: 0
  195. -- text size: 12
  196. -- style flags: 0
  197. -- line height: 16
  198. -- part name: Prev
  199. ----- HyperTalk script -----
  200. on mouseUp
  201.   visual effect wipe right
  202.   go to previous card
  203. end mouseUp
  204.  
  205.  
  206.  
  207. -- part 27 (button)
  208. -- low flags: 00
  209. -- high flags: 0000
  210. -- rect: left=398 top=307 right=332 bottom=425
  211. -- title width / last selected line: 0
  212. -- icon id / first selected line: 16560 / 16560
  213. -- text alignment: 1
  214. -- font id: 0
  215. -- text size: 12
  216. -- style flags: 0
  217. -- line height: 16
  218. -- part name: Next
  219. ----- HyperTalk script -----
  220. on mouseUp
  221.   visual effect wipe left
  222.   go to next card
  223. end mouseUp
  224.  
  225.  
  226.  
  227. -- part 28 (button)
  228. -- low flags: 00
  229. -- high flags: 0000
  230. -- rect: left=391 top=29 right=55 bottom=427
  231. -- title width / last selected line: 0
  232. -- icon id / first selected line: 3430 / 3430
  233. -- text alignment: 1
  234. -- font id: 0
  235. -- text size: 12
  236. -- style flags: 0
  237. -- line height: 16
  238. -- part name: Adresse
  239. ----- HyperTalk script -----
  240. on mouseUp
  241.   get the selection
  242.   visual effect zoom open
  243.   go to "Adresse"
  244.   if it is not empty then find it
  245. end mouseUp
  246.  
  247.  
  248.  
  249. -- part 29 (button)
  250. -- low flags: 00
  251. -- high flags: 6005
  252. -- rect: left=336 top=118 right=140 bottom=485
  253. -- title width / last selected line: 0
  254. -- icon id / first selected line: 0 / 0
  255. -- text alignment: 1
  256. -- font id: 0
  257. -- text size: 12
  258. -- style flags: 0
  259. -- line height: 16
  260. -- part name: 
  261.  
  262.  
  263. -- part 39 (button)
  264. -- low flags: 00
  265. -- high flags: 0000
  266. -- rect: left=423 top=305 right=333 bottom=460
  267. -- title width / last selected line: 0
  268. -- icon id / first selected line: 6720 / 6720
  269. -- text alignment: 1
  270. -- font id: 0
  271. -- text size: 12
  272. -- style flags: 0
  273. -- line height: 16
  274. -- part name: Return
  275. ----- HyperTalk script -----
  276. on mouseUp
  277.   visual effect iris close
  278.   pop card
  279. end mouseUp
  280.  
  281.  
  282.  
  283. -- part 40 (button)
  284. -- low flags: 00
  285. -- high flags: 2005
  286. -- rect: left=336 top=143 right=165 bottom=485
  287. -- title width / last selected line: 0
  288. -- icon id / first selected line: 0 / 0
  289. -- text alignment: 1
  290. -- font id: 0
  291. -- text size: 12
  292. -- style flags: 0
  293. -- line height: 16
  294. -- part name: 
  295.  
  296.  
  297. -- part 41 (button)
  298. -- low flags: 00
  299. -- high flags: 2005
  300. -- rect: left=336 top=167 right=189 bottom=494
  301. -- title width / last selected line: 0
  302. -- icon id / first selected line: 0 / 0
  303. -- text alignment: 1
  304. -- font id: 0
  305. -- text size: 12
  306. -- style flags: 0
  307. -- line height: 16
  308. -- part name: 
  309.  
  310.  
  311. -- part 42 (button)
  312. -- low flags: 00
  313. -- high flags: 6005
  314. -- rect: left=336 top=191 right=213 bottom=440
  315. -- title width / last selected line: 0
  316. -- icon id / first selected line: 0 / 0
  317. -- text alignment: 1
  318. -- font id: 0
  319. -- text size: 12
  320. -- style flags: 0
  321. -- line height: 16
  322. -- part name: 
  323.  
  324.  
  325. -- part 43 (button)
  326. -- low flags: 00
  327. -- high flags: 2005
  328. -- rect: left=336 top=215 right=237 bottom=485
  329. -- title width / last selected line: 0
  330. -- icon id / first selected line: 0 / 0
  331. -- text alignment: 1
  332. -- font id: 0
  333. -- text size: 12
  334. -- style flags: 0
  335. -- line height: 16
  336. -- part name: 
  337.  
  338.  
  339. -- part 44 (button)
  340. -- low flags: 00
  341. -- high flags: 2005
  342. -- rect: left=336 top=239 right=261 bottom=485
  343. -- title width / last selected line: 0
  344. -- icon id / first selected line: 0 / 0
  345. -- text alignment: 1
  346. -- font id: 0
  347. -- text size: 12
  348. -- style flags: 0
  349. -- line height: 16
  350. -- part name: 
  351.  
  352.  
  353. -- part 45 (button)
  354. -- low flags: 00
  355. -- high flags: 2005
  356. -- rect: left=336 top=264 right=286 bottom=485
  357. -- title width / last selected line: 0
  358. -- icon id / first selected line: 0 / 0
  359. -- text alignment: 1
  360. -- font id: 0
  361. -- text size: 12
  362. -- style flags: 0
  363. -- line height: 16
  364. -- part name: 
  365.  
  366.  
  367. -- part 46 (button)
  368. -- low flags: 00
  369. -- high flags: 2005
  370. -- rect: left=336 top=288 right=310 bottom=485
  371. -- title width / last selected line: 0
  372. -- icon id / first selected line: 0 / 0
  373. -- text alignment: 1
  374. -- font id: 0
  375. -- text size: 12
  376. -- style flags: 0
  377. -- line height: 16
  378. -- part name: 
  379.  
  380.  
  381. -- part 47 (button)
  382. -- low flags: 00
  383. -- high flags: 0000
  384. -- rect: left=464 top=29 right=58 bottom=496
  385. -- title width / last selected line: 0
  386. -- icon id / first selected line: 21700 / 21700
  387. -- text alignment: 1
  388. -- font id: 0
  389. -- text size: 12
  390. -- style flags: 0
  391. -- line height: 16
  392. -- part name: Hjem
  393. ----- HyperTalk script -----
  394. on mouseUp
  395.   visual effect iris open
  396.   go Home
  397. end mouseUp
  398.  
  399.  
  400.  
  401. -- part 48 (field)
  402. -- low flags: 80
  403. -- high flags: 0000
  404. -- rect: left=477 top=52 right=329 bottom=512
  405. -- title width / last selected line: 0
  406. -- icon id / first selected line: 0 / 0
  407. -- text alignment: 0
  408. -- font id: 3
  409. -- text size: 9
  410. -- style flags: 0
  411. -- line height: 10
  412. -- part name: Checks
  413.